10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <N0>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
105 [153]"                                        WAIT";
110 [153]"                                        WAIT";
115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
120 [153]"                                        WAIT";
125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
130 [153]"                                        WAIT";
135 [153]"                (null)ESSON 3                WAIT";
140 [153]"                                        WAIT";
145 [153]"            CHR$ENERAL (null)ROBLEMS OPEN           WAIT";
150 [153]"                                        WAIT";
155 [153]"                                        WAIT"
160 [153]"                   WHC ONON"
165 [141]90
170 [153]"LOAD       ATNND AWAY WE GO......."
175 [141]81:[141]50:[141]80
200 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 1 WAIT          (null)3OPEN":Z[178]0
205 [153]"  RIGHT$ HAVE 48 MARBLES.  RIGHT$ WISH TO CARRY
210 PRINT"  THE SAME NUMBER IN EACH OF THREE
215 [153]"  POCKETS.
220 PRINT"  [200]OW MANY MARBLES SHALL [201] PUT IN         EACH POCKET?[159]"
225 PRINT"             [145]"
230 INPUT A$
240 IFA$<>"16"THEN 270
250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
260 P=P+1:GOTO300
270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
275 IFZ=2THENG=G+1:GOTO295
280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
290 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
295 PRINT"[145][145]  [201] WILL PUT 16[150] IN EACH POCKET.    ":GOSUB83
297 PRINT"  48 / 3 = 16  "QQQ":GOSUB82:GOSUB90
300 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 2 WAIT          (null)3OPEN":Z[178]0
305 [153]"  ATN FARMER HAS 96 SHEEP IN THREE          PASTURES."
310 [153]"  LEFT$OW MANY SHEEP ARE IN EACH PASTURE
315 PRINT"  IF HE HAS THE SAME NUMBER IN EACH?[159]"
320 GOSUB81:GOSUB70
325 PRINT"             [145]"
330 INPUT A$
340 IFA$<>"32"THEN 370
350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
360 P=P+1:GOTO400
370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
375 IFZ=2 THEN G=G+1:GOTO395
380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
390 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
395 PRINT"[145][145]  [212]HERE ARE 32[150] SHEEP IN EACH PASTURE.":GOSUB83
397 PRINT"  96 / 3 = 32  ":GOSUB82:GOSUB90
400 PRINT"[152][147][197][196]-14          [209]UESTION 3 [146]          [204]3[159]":Z=0
405 PRINT"  [201]N THE BUS [194]OBBIE COUNTS 14 MEN,
410 [153]"  12 WOMEN, AND 5 CHILDREN.
415 PRINT"  [200]OW MANY PEOPLE WERE ON THE BUS?[159]"
420 GOSUB81:GOSUB70
425 PRINT"             [145]"
430 INPUT A$
440 IFA$<>"31"THEN 470
450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
460 P=P+1:GOTO500
470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
475 IFZ=2THENG=G+1:GOTO495
480 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
490 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
495 PRINT"[145][145]  [212]HERE ARE 31[150] PEOPLE ON THE BUS.":GOSUB83
497 PRINT"  14 + 12 + 5 = 31   ":GOSUB82:GOSUB90
500 PRINT"[152][147][197][196]-14          [209]UESTION 4 [146]          [204]3[159]":Z=0
505 PRINT"  [193] VINE 8 METRES TALL IS GROWING UP A    WALL 12 METRES HIGH.
510 [153]"  LEFT$OW MUCH FURTHER MUST IT GROW TO
515 PRINT"  REACH THE TOP OF THE WALL?[159]"
520 GOSUB81:GOSUB70
525 PRINT"             [145]"
530 INPUT A$
540 IFA$<>"4 M"ANDA$<>"4M"ANDA$<>"4"THEN 570
550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
560 P=P+1:GOTO600
570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
575 IFZ=2THENG=G+1:GOTO595
580 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
590 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
595 PRINT"[145][145]  [201]T MUST GROW 4[150] M.              ":GOSUB82
597 PRINT"  12 - 8 = 4  ":GOSUB82:GOSUB90Y.
600 PRINT"[152][147][197][196]-14          [209]UESTION 5 [146]          [204]3[159]":Z=0
610 PRINT"  [215]HAT CHANGE SHOULD [200]ARRY GET FROM
615 [153]"  50 CENTS IF HE BUYS A BOOK FOR 15       CENTS?"
620 [141]81:[141]70
625 [153]"             ON"
630 [133] A$
640 [139]A$[179][177]"35"[175]A$[179][177]"35 CENTS"[167] 670
650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
660 P[178]P[170]1:[137]700
670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
675 [139]Z[178]2[167]G[178]G[170]1:[137]695
680 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
690 [153]"OPENONON                                        ONONONONONONON":[137]625
695 [153]"ONON  LEFT$IS CHANGE IS 35DEF CENTS.           ":[141]83
697 [153]"  50 - 15 = 35  ":[141]82:[141]90
700 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 6 WAIT          (null)3OPEN":Z[178]0
710 [153]"  PEEKESSIE HAS 35 CENTS AND MID$ANE HAS        23 CENTS.
715 PRINT"  [200]OW MUCH MORE MONEY HAS [194]ESSIE THAN     [202]ANE?[159]"
720 GOSUB81:GOSUB70
725 PRINT"             [145]"
730 INPUT A$
740 IFA$<>"12"ANDA$<>"12 CENTS" THEN 770
750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
760 P=P+1:GOTO800
770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
775 IFZ=2THEN G=G+1:GOTO795
780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
790 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
795 PRINT"[145][145]  [194]ESSIE HAS 12[150] CENTS MORE.       ":GOSUB83
797 PRINT"  35 - 23 = 12 ":GOSUB82:GOSUB90
800 PRINT"[152][147][197][196]-14          [209]UESTION 7 [146]          [204]3[159]":Z=0
805 PRINT"  [204]AST SUMMER, [215]ILLIAM SPENT HIS          VACATION ON A FARM."
810 PRINT"  [212]HERE WERE THREE PASTURES WITH 15       COWS IN EACH PASTURE.
815 [153]"  LEFT$OW MANY COWS HAD THE FARMER?OPEN"
820 [141]81:[141]70
825 [153]"             ON"
830 [133] A$
840 [139]A$[179][177]"45"[167] 870
850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
860 P[178]P[170]1:[137]900
870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
875 [139]Z[178]2[167] G[178]G[170]1:[137]895
880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
890 [153]"OPENONON                                        ONONONONONONON":[137]825
895 [153]"ONON  (null)HERE ARE 45DEF COWS.               ":[141]83
897 [153]"  15 X 3 = 45  ONONON":[141]82:[141]90
900 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 8 WAIT          (null)3OPEN":Z[178]0
905 [153]"  ASCRANK EARNED 20 DOLLARS ON EACH OF      6 DAYS LAST WEEK.
915 PRINT"  [200]OW MUCH DID HE EARN DURING THE WEEK?[159]  (USE $ SIGN)"
920 GOSUB81:GOSUB70
925 PRINT"             [145]"
930 INPUT A$
940 IFA$<>"$120"ANDA$<>"$120.00"THEN 970
950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
960 P=P+1:GOTO1000
970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
975 IFZ=2THEN G=G+1:GOTO995
980 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
990 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
995 PRINT"[145][145]  [200]E EARNED  $120.00[150] .             ":GOSUB83
997 PRINT"  20 X 6 = 120  ":GOSUB82:GOSUB90
1000 PRINT"[152][147][197][196]-14          [209]UESTION 9 [146]          [204]3[159]":Z=0
1005 PRINT"  [198]RED HAS 32 MARBLES AND [194]ERT HAS        ONLY 26.
1010 [153]"  LEFT$OW MANY MORE MARBLES HAS ASCRED THAN     PEEKERT?OPEN"
1020 [141]81:[141]70
1025 [153]"             ON"
1030 [133] A$
1040 [139]A$[179][177]"6"[167] 1070
1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1060 P[178]P[170]1:[137]1100
1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1075 [139]Z[178]2[167] G[178]G[170]1:[137]1095
1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1090 [153]"OPENONON                                        ONONONONONONON":[137]1025
1095 [153]"ONON  LEFT$E HAS 6DEF MORE MARBLES.         ":[141]83
1097 [153]"  32 - 26 = 6  ":[141]82:[141]90
1100 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 10 WAIT         (null)3OPEN":Z[178]0
1105 [153]"  CHR$EORGE HAS 9 BOOKS AND 22 MAGAZINES.
1110 PRINT"  [194]EN HAS 17 BOOKS AND 37 MAGAZINES.
1115 [153]"  LEFT$OW MANY MAGAZINES DO CHR$EORGE AND        PEEKEN HAVE ALTOGETHER?OPEN"
1120 [141]81:[141]70
1125 [153]"             ON"
1130 [133] A$
1140 [139]A$[179][177]"59"[167] 1170
1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1160 [137]1200
1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1175 [139]Z[178]2[167] G[178]G[170]1:[137]1195
1180 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1190 [153]"OPENONON                                        ONONONONONONON":[137]1125
1195 [153]"ONON  (null)HEY HAVE 59DEF MAGAZINES.         ":[141]83
1197 [153]"  22 + 37 = 59  ":[141]82:[141]90
1200 [153]"LOAD           (null)EPORT LENARD WAIT"
1205 D[178]W[171]G:C[178]10[171]W
1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 PRINT"                 ";C
1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 [153]"                 ";D
1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
1235 PRINT"                 ";G;""
1245 GOSUB90
1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
1270 IFR$="R"THENRESTORE:GOTO100
1280 PRINT"[147] [210]ETURNING TO THE MENU
1285 [147]"MENU",8
1290 [138]
1295 [128]
1300 [143] BILL CUMBERLAND 90:11:28